CAAElliptical_InstantaneousVelocity <-
function(r, a){
.Call("CAAElliptical_InstantaneousVelocity", r, a)
}
